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SIGN FOUND SWITCH 
B« IF SIGN F"Uf D 
P^EbET WOHD TWO FOR 
ulUKU NAME, 
NbXl SjTmNT KM'RD 
FIK6T Name WURi) 

NEXT stmnt word 
B^ If ONE wohd only 

SECUND NAME WOHD 
INCH sTmNT POIfiTER 
NfcXi STMNT WORtl 
BR If 3kD MA^'^E WD - 



A 1 



ONE 



ERROR 



CHECK SYMBOL I ABLE FOR Dl'PLlCATE HM' 



13 SnFNS 
JACK 
3 1 

WDRDl 



STAkT of NON-'STfiNT f^UMBHRS 
8^ TO INITIATE 
NfcXi NAME - F IHST WHRD 
CHECK FUR DUPLICATE 



SKITE 



4P0 
421 
422 
423 
424 
42tJ 
426 
^?J 
428 
4?9 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
44 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
4!S1 
4f52 
4S3 

4r5 4 

455 
4!56 
457 
458 
459 

46 
4 61 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 

47 3 

474 
475 
476 
477 
478 
479 



EAT 
JACK 



ERR34 

errno 

THRE 

DEE 

EEE 

NAME 

CEE 

MARS 
PLUSC 

MINC 

commc 

SPECP 
ERR33 

NRMSV 

GETZ 

ERRlD 

RNG 

HUB 
ERIID 

CK3 



E 



BSC 

MDX 

LD 

S 

BSC 

HDX 

STX 

LD 

S 

BSC 

HDX 

LD 

STO 

HDX 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



STX 

LD 
A 
S 
SRT 

D 

OR 

STO 

LD 
STO 

LD 
STO 
LD 
STO 



LD 
AND 
EOR 
BSC 



Eat 

3 2 

W3P02 
L CK3, . 



-3 

SAVE! 
SAVE! 
EOFST 

L 

LPP 
ERR34 

e:?rno 



SKIP NEXT IF 1ST WDS EQJAL 

8K iO CHK AGAINST NEXT MAH 

COMPARE SfcCOND WORDS OF 

NAMfc JF FJRST I'DS CCMPA^E, 

m 10 CUNVERT IF NAf^E FDUM 

DtCN TO NfcXT EfTRY 

XR3 TO TEMPOt^AKY 

CJRKENT SYMBOL TBL ADDRESS 

END "OF bYMROL TARLE 

SKIH NEXT IF Ef.D CF TABLE 

CONi iNUfc NAMfc SEARCf 

UNUtFjNfcD VARIABLE IN SJBS 

SfcT up tRHOR NO, 34 

3R TO PUT ER«OH ON STRIMG 



CONSTANTS AND WgRK AREA 



34 



3 



C 





/D8 

/QOQE 

/Q020 

/n02B 

/nco2 

33 



(] 

/A008 



/4000 

/AOQU 



ERR 
ERR 
DEC 
DIM 
DIM 
CON 
DIM 
DIM 
PLU 

•/COOE ■ 
CUM 

•/0Q2B 

ERR 
STM 
NEX 
ERR 
StR 
SIT 
ERR 



uR 34 
UR NU 
iHAL 
fcNSlU 
fcNSlU 
vERTb 
tNSlU 
tNSlU 
b CON 
MiNUb 
MA CU 
bPECl 
OR 3i 
nT WD 
T STM 
UR lU 
iNG t 
1 MA 
UR lU 



gons 

M8ER 
3 CON 

nal y 
naL s 

D NAM 

nal s 

M INU 

STANT 
CONS 

NbTA^' 
AL RT 

CONS 

COIJM 

NT AO 
ENTIF 

LOSUH 
SK 

c;ON« 



tant 

TEHPO 

STANT 

UBSC 

UBSC 

E TEN 

Uf-SC 

R OIT 



RARY 

NAMt; TEM 

NAME TEN 
PCRARY 
NAME TEM 
f'ASK 



TANT 
T 

FARENTHF:SIS 
TAfiT 
T TEMf 
DH TEf 
lEP C( 
E PAN( 

TAf'T 



IPCRARY 

iMPORARY 

;or'STA\'T 

iGf-. 



CONVERT NAME lO PUISTER 



savei 

GOFST 

THRE 

5AVE1 

16 

THRE 

0'! 

NAME 

DEE 

CEE 

EFE 

DEE 

NAME 

EEE 



CUKkEnT SYMBOL TABLf- ADDR 
SFAkT Oh SYMHOL TABLE 
ADJUST ^OK SEARCH LPOP DEC 
ADDk wHtRfc NAME FOUf'D 
MAKt NOkMaL DIV'IOENP 
FORM SYMBOL TAPLE PDINTHR 
SIGN BIT 
NAMt POINTER 

PUSH DOWN DIMENSIONAL 
SUBbCHlKT NA"E POINTERS AN 
ADO" THE NAME JUST CHNVERTE 
TO IHE TOP OF THE LIST, 



CIECK FOR NON-DlMfcNblONEP NAMl, 



SAVEl 
MARS 
HJR 
(■! . Z 



SYMBOL. TABLE ID WORD 
DIMtNSlUN BIT MASK 
RfcAL/lNTEGER BIT MASK 
BR iF NUNsDIMEf'SIONFD NAME 



SEITE 



* 
M 



* 



480 

481 

4B2 

48^^ 

464 

4B£> 

486 

48 7 

488 

489 

490 

4Q1 

498 

493 

494 

4Qt) 

496 

49/ 

498 

499 

500 

501 

502 

50.5 

504 

50S> 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

52B 

529 LIM 

53 

531 

532 

533 

534 

535 

536 

537 

538 

539 * 



MDX 



1 1 



INCH sTmNT Pi'I'TER 



CHECK FOR OPEWATOH 



CALn 



CAUDA 



S 
BSC 

s 

BSC 

LD 

S 

BSC 

S 

BSC 



LD 
STO 



LDX 

LD 

SRA 

AND 

STO 

A 

STO 

LDX 

LD 

BSC 

MDX 

LD 

STO 

MDX 

MDX 

LD 

STO 

LD 

STO 

MDX 

LD 

S 

s 

STO 
LDX 
STX 

MDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

STX 

LDX 

MDX 

BSC 



U 
1 



12 

1 
L 



L 
L 



STMNT WORD 

SlUN CONSTAMT 
F PLUS SlGr^ 
S SiGN CONSTANT 
F MiNgS SUN 

STMNT WORD 
A CUNSsTA^T 
F CUMMA 

lAL RJGHT PARENTHESIS 
F RIGHT PAPENTHPSIS 



SET up ERROr? ^3 

ERR33 ERRUR 3>5 COMSTAf'T 
ERRNO PHIRgR NUMBER TLMPORARY 

REPLACE STMMT WiTh tRPOR 






NEXi 


PLUSC 
CK4, - 

f1lMC 
CK5, - 



PLUb 
BR 1 
MINU 
BR 1 
NfcXi 


COMMC 
CK6, - 

SPECP 


COMh 
BR I 
SPEU 


CK7^ - 


9K I 



13 
1 
3 

1 

1 
2 
3 

LI 
IX 

1 

L 



IDSAV 



2 

I DNRM 

M9HSV 

IDSAV 

OETZ 

GETZ 



CALD.E 

CALD 4 

E3IIU 

C 

1 
CALDA 

ERPIU 



ERPNJO 

1 
1 

EOFS 
inSAV 

MIMSV 

R-,|G 

RMO 

RJG 

1 



1 

1 

1 

-1 
L I M 
EnFS 
P !G 
1 
TEST 



STMnT Iu InQRH ADDRESS 

STMnT lU WOR'J 

RIGHT JUST IP"^ *-D COUMT 

EXTkACT i^ORD COUNT 

SAVt WOHD COUNT 

STMnT iu ^ORt^ ADDRESS 

ADDK next STMNT ID WORD 

XR2 MtXT STMNT ADDRESS 

STMNT Iu V^ORD 

8K JF NUMBERED STMNT 

BR iF UNNUMBfcRED STI'NT 

ERHUR IU WORU 

StOKE Ab bTMNT ID 

INCk sTi^NT POINTER 

8R 10 StT UP EHP ON STRING 

EKRUR lU wORD 

StOHE Ab STHNT ID 

ERRuR NUMBER 

STOhE on STRING 

INCH STMNT POINTER 



END OF bTHlMG 
CURHEnT STMNT 
CURRENT STMNT 



ADDRESS 
ADDRESS 
WDRD COUNT 



RANUE OK bTRiNG CLOSURE 

CURRENT STMNT POINTER 

ADJUST RANGE 

NEXT WORD TO MOVE 

CLObE UP STRING 

INCH HOVE TO POINTER 

INCH MOVE FROM POINTER 

DECR NO, wDS TO MOvr 

8R 10 CUNTIMUE CLOSING 

END 'OF bTKlHG ADDRESS 

XRl c^^Rf'fcNT STMNT POINTER 

INCR sTmNT POINTER 

3R iO TtST ritXT STMfT TYPF- 



SEITE 10 



540 
541 

54.3 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 

55 B 
559 

56 
561 
56;^ 
563 
564 
565 
560 
567 
56B 
569 

57 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 

58 2 
583 
584 
585 
5B6 
587 
588 
589 
590 

591 
592 
593 
594 
595 
596 
597 
598 
599 



* 

CK4 



c'c 



SWITCHES lO Indicate sign fuun'd 



CK5 

♦ 

GO 

D4 



* 
CK7 

CK6 



* 
* 



* 
♦ 



CK8 



* 
CK9 



SLA 

STO 
MDX 
MDX 
BSC 
MDX 
MDX 



DC 

DC 



HDX 

SIX 

MDX 

LD 

S 

BSC 

S 

BSC 

s 

BSC 

LD 

STO 



LD 
M 

SLT 
S 

A 

STO 



LD 



SLT 

STO 
MDX 



LD 
STO 

LD 
A 
S 
STO 

MDX 



LD 



L 
L 

l' 

L 



L 
L 
L 
U 
L 
L 



L 
L 



L 

L 



L 
L 

L 



16 

S.il 

3^2.1 

1 

G 

S^'1,1 

CK4 3 



CLEAR ACCUMULATOR 

SET SWl TU PLUS CONPITIDN 

SET SW2 SIGN FOUND 

INCH stmnt POirTER 

BR TO CHK FOH OPERATOR 

SfcT'Swl Tu MINUS COf'DITIOH 

B« 10 SET SWITCH 2 



AREA 



DIMfcNSlUN 

DIMfcNSlUN 



LEVEL TEMPORARY 
CONSTANT TEMP 



DETERMINE DI MfcNS I UN I NG LhVEL 



:si 



^a,\ SET Sw3 RIUHT PARFNTHi 

VAMP SAVt JMUEX Pt:G \ 

G0,1 INCH DIMENSION LEVEL CTR 

Gn DIMtNSlUN LEVEL CTR 

!F- DECIMAL ONE 

Ci-re, - 3R JF 1-0 I MEMS I ON 

OJE DECIMAL ONE 

CK9, - BR IF a-DjME^'SION 

CMR DECIMAL ONE 

M,Z 8R TO EKRUR IF MORE THA\' 3 

S:iB83 3'DiMfcNbloN INDR COf:STA\!T 

TAP DIMtNSlUN LEVEL INDR 

CALCULATE D4 u4 Ij 

B DIMfcNSlUN VALUE CONSTANT 

UMAX riRbT DiMfcMSlON FACTOR 

16 PROuUCT INTO ACCUMULATOR 

LJMAX FIRbT DlMfcNSlOr' FACTOR 

D4 D4 bUBSCRlPT COfiSTAf.-T 

D4 NEW'D4 



CALCULATE A A*IjMAX 



A 
UMAX 

16 

A 

CKIO 



DIMtNSlUN VALUE CONETA^iT 
FiRbT DiMtNSIOf' FACTOR 
PROuUCT INTO ACCUMULATOR 
NEW A VALUE 
8R TO CHECK IF A 



CALCULATE 04 D4 b-1 



SJBl 

Tab 

D4 
R 

IE 
04 
CKIO 



ONE-DlMbNSlO"ML SUBSC CDN 

DIMENSIONAL LEVEL IfDR 

D4 iUBSC gOnSTAfiT 

DIMtNSlUN VALUE CONSTANT 

DECIMAL ONE 

NEW 04 

8R TO CHECK IF A 



CALCULATE 04 O4 IMaX M-i 

SJB82 TWO-DlMtNSlOHAL SUBSC C3N 



600 

6D1 

602 

6Dv5 

604 

605 

60 6 

607 

608 

609 

610 

611 

612 

613 

614 

61t> 

616 

617 

618 

619 

6:^0 

621 

622 

62^^ 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

63S 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

63 n 

6f.l 
652 
63'S 
6P4 
t55 
6^6 
6? 7 
6P8 
6f9 



SEITE 


11 




STO 




TAB 


LD 


L 


f! 


M 


U 


IMAX 


SLT 




16 


S 


L 


IMAX 


A 




D4 


STO 




D4 



* 
* 

CKIO 

* 



JK 



DIHtNSlUNAL UEVEl If^DR 
DIMtNSlUN VAUUt^ CONSTANT 
2ND DlMtNblON FACTOR 
PROuUcT INTO 
2ND DiHtNblO' 
D4 bUBSGRlPT 
NtW D4 



ACCUMULATOR 
r ACTOR 

CONSTAtJT 



LD 
M 

SLT 
STO 



LD 
BSC 



MDX 

LD 

STO 

LD 

STO 

LD 

STO 

MDX 

LD 

BSC 



LD 

BSC 

MDX 

SLA 

STO 

STO 

STO 

BSC 



TAB 

SUBB2 

SUBB3 

CNT 

ERR35 

FOUR 

OP 

NO 

SUBZ 

TWO 

SPARR 

VAMp 

Dl 

n2 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
Dn 
DC 



CALCULATE A A*iMAX 



L 
L 



A 

IMAX 
16 
A 



L 
L 



L 
L 



DIMtNSlUN VAUUC- CONSTANT 
2ND DiMtNblON FACTOR 
PRQUUCT INTO ACCUMULATOR 
NtW A \/ALyE 



C-IECK FOR A 



A 
J, 



DIMfcNblUN VAUUt CONSTANT 
BR iF A TO Tt ST IF B 



SET A INTO NEXT SUBSCRIPT CONSTANT 



C:-!T,1 

ni 
n3 

D2 
A 

03 

JK 

B 

¥, - 



INCH sUbSC EUEf'EtJT COUNTER 
Dl U2 

Q2 y3 

D3 A 

BR 10 CHK RI(iHT PARf:N I MDR 
DIMtNSlUN VAI-UL CONSTANT 
BR JF B ZERO 



TEST RIGHT PAkEnThESIS IfDICATOR 



CKllfZ 

1 1 

16 

S,.^2 
A 
B 
G 



RT PARENTHESIS INDICATOR 
RR IF RT PARENTHESIS 
MOVt STmNT POIf TER 
CLEAR ACCUMULATOR 
RtSfcT SIGN INDICATOR 
CLEAR DiMfcNSlOr VALUE CDN 
CLEaR DlHtNSlOn VALl'E CDN 
BR 10 CHK FOR OPERATOR 



CONSTANTS AND WqRK aREA 





/ooic 
/aoifc 



35 

4 





/D018 

2 

/3n24 

c 
c 





DIMfcNSlUNAL LEVEL IfDICATO 

2 DiMENbloN INUR COfiSTAviT 

3 OlMENblgM INDR CoriSTAMT 
SUBbCRlPT ELEMHiT COUNT 
ERRUR 3b cONSTAflT 
DfcCiMAL 4 CONSTANT 



ZERU bJbSC r^DR CONSTANT 
SPELlAL RT PARhr'THESIS :0N 

SUBbC CUNbTA^'T D2 





SEITE 


12 




660 


D3 


DC 







661 


EQVIC 


Dr 




/15 


662 


* 








663 


* 






D"i SU8SC 


664 


* 








663 


CKll 


LD 


I 


Y 


666 




S 




TAB 


667 




BSC 


L 


C,<12i - 


668 


* 








669 


* 






EQUIVALE 


670 


♦ 








67X 




LD 


I 


insAV 


67^ 




SRA 




11 


673 




S 




r-3ViG 


674 




BSC 


L 


CKKK,Z 


675 


♦ 








676 


* 






CMECK IF 


677 


♦ 








678 




LD 


L 


TAP 


679 




S 


L 


SJBI 


6B0 




BSC 


L 


CK12* - 


6B1 




LDX 


2 


31 


682 




STX 


L2 


ERRNO 


6B3 




MDX 




CKKK 4 


684 


CKKK 


LD 


L 


ERR35 


60!:> 




STQ 


L 


E:RRNU 


6B6 




BSC 


L 


fl 


6fi7 


CK12 


LD 




C JT 


688 




M 




FrllJR 


689 




SLT 




16 


690 




STO 




CjT 


691 


• 








69 2 


♦ 






COMPUTE 


693 


* 








694 




LD 




VAMP 


69!? 




S 


L 


Y 


696 




STO 




HO 


69 7 




MDX 


L 


m,i 


698 


* 








699 


* 






COMPUTE 


700 


Hr 








701 




LD 




C-T 


702 




S 




r -1 


703 




A 


L 


THRE 


704 




STO 




Op 


705 




BSC 


L 


CK13i Z 


706 




BSC 


L 


CK14,Z 


707 


K 


LDX 


11 


Y 


708 


* 








709 


* 






cohpute 


710 


* 








711 




LD 




HOLD 


712 




SLA 




1 


713 




BSC 


L 


HDLOl,- 


714 




LD 


L 


CCWD 


715 




Si A 




9 


7X6 




BSC 




z 


717 




MDX 




HLD2 


718 


(lOLDl 


, LD 


L 


CCNO 


719 




SLA 




13 



SJBbC CUNbTA'^T D3 
EUUlVALtNCE ^TfMT CCNSTANT 

;PTS AGRtE 

STMinT SUBSC wOHD 
OiMtNSlUN LEVEL INDICATOR 
m IF SUBbCRlPTS AGf^EE 



STMivT lU WORD 
Rf gUsTlFY STMfT TYPE 
EUUiVALfcN'CE STfNT CONSTANT 
8K JF ^UT EQUIVALENCE STMN 

1 Uli^ENSlONAL STf'MT 

DIMtNSlUM LEVEL INDICATOR 

ONE-DlHtNblONAU SU8SC CON 

8R iF ONE niMEf^SION SUBSC 

XK2 31 

SET Up ERROR NL, 3l 

BK 10 RtPLACb STMMT W/ ZRR 

ERRUR 3;> CONSTAMT 

SET UP tRKOP NO, 35 

3R 10 REPLACE STUNT W/ =Rn 

SJBbCRlPT 

CNT 'CNT«4 

PROUUCT INTO 

RES I ORE CNT 



ELfcMF NT COUNT 
ACCUMULATOR, 



SIZE UF SUBSCRIPT EXPRESSION 

STMnT POINTED l-ND 
STMnT PUINTEH BEGINNING 

SrUKE SiZE-l 

SUBSCRIPT EXPRESSION SIZE 

RANGE OF bTMNT CUOSURl 

SJBbCRlHT ELt^MfcNT COUNT 

SUBbCRlPT EXPRfSSlor^ SIZE 

THREE 

RANbE OF ULOSUKE 

8R iF RANGE IS NEGATIVE 

8R IF RANGE IS POSITIVE 

STMNT P| Y IF PANGl ZERO 

NO, Oh wOKPb Pf^R ENTRY 

3RU DiMfcNblOM CONSTANT 
REAL-I^JIEGER I^'DR INTO SIG 
BR iF REAL 
CONiROL CARD WORD 
ONE-Wy INTEGER RIT TO SIGN 
SKIP NEXT IF NOT ONf WORD 
BK iF ONE WOI^D INTECER HOD 
CONlRQL CARD WnPD 
EXTtNUEU PREC FIT INTO SIC 



720 
72i 
7?.2 
72s5 

724 

725 
726 

72 7 
72« 
72^ 
730 
731 
732 
733 
734 
735 
736 

73 7 
73B 
73^^ 
740 
741 
742 
743 
744 
745 
746 

74 7 
74B 
749 
750 
7^1 
7!^2 
753 
754 
755 
756 

75 7 
758 

75^ 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

77 3 

774 

775 

776 

777 

77a 

779 



HLP2 



ZZZZ 

* 



SEITE 


13 




8SC 




•t 

I. 


MDX 




ZZZZ-2 


LD 




T/IO 


HDX 




ZZZZ 


LD 


L 


O'JE 


MDX 




ZZZZ 


LD 


L 


T;!RE 


: STO 




SES 






D4CK 

* 



* 



Z3 



TAT 



LDX 




3 




LD 


L2 


Dl-1 




H 




SES 




SLT 




16 




STO 


L2 


Di-1 




MDX 


2 


-1 




MDX 




ZZZZ 


2 


LD 




Dl 




OR 




D2 




OR 




03 




BSC 


L 


D4nK« 


.Z 



LD 

S 

BSC 

LD 

BSC 

Equ 



LD 
M 

SLT 
OR 

STO 

STO 



LD 

BSC 

LD 

STO 

LD 

A 

A 

STO 

LDX 



LD 
STO 

use 



SKJH NEXT IF STANDARD P^EC 
8K JF EXTENDED PREcISIOnJ 

8K TO SET WDi^ F'FR EI TRY 2 

3H 10 SfcT WDi' PER EITPY 1 

^OKDS PtR ENTRY 3 

NQ, OF wDhDS per SUFSCRIPT 



SET UP Dl# D2, 03, AND D4 

LOOP COUNTER 

D-FaCTOk 

NO, OF WOHDS PFR SUf SCRIPT 

PKOUUCT INTO ACCUMULATOR 

COMPUTEU UlfitN-ION INDEX 

DECK cOUMTEP 

BR lO CuMFUTfc fEXT P f a:TO 

TfcSi IF 01, :32, 03 

*ARt ALL ZERO 

* 

BRANCH IF MOT ALL Zl: «0 

TEST FOR SUBSCRIPT SIZE FRROR 



I 

L 
L 



SAVE 

D4 

D4nK,-Z 
ERR35 
M 1 
♦ 



LOAU MAXIMUM SUBSCRIPT 
SUBiRaCI THIS SUDSCPIPT 
BRANCH iV SIZE PK 
LUAU ERhON code 
SO INDICATE LRKOR 
CONT iNUfc 



p !T U4 m STKlNG AT POINTER 1 

D4 



J. 6 
L O'J 
L D4 
1 1 



D-FaCTOk 

NO, OF WORDS PtP SUPSGRIPT 

PROuUcT INTO ACCUHUIATOR 

SIGN BIT 

COMKUTEU DIHLNSION INDEX 

PLAUE ON STRING 



PLACE DIMENSION SUBSC 0^i OUTPUT ST^H' 



C'T 
L Z,Z 

SUBZ 
1 
L Y 

C-iT 

T,iO 

TAT 1 
LI 



SUBbC ELEMENT COUNT 

BR IF NUT ZEHO 

ZfcRU sUBSC I^DH 

PLAgE ON STRING 

COMPUTE POINTER Y CNT 2 

ELEMENT COUNT 

DECIMAL TWO 

ADDK QP LUX INSTRUCTION 

POINTER V CNT 2 

♦HOUlFlABLE 



P,.'T SPECIAL Rl PAHENTHESIS ON STRING 



SRARR 
1 
L L 



SPEUIAL PT PARLNTHESIS 
PLAgE ON bTPlNG 

BR to CHK FOH tfJD Of STMNT 



SEITE 14 



7a 


♦ 






coMsr/ 


781 


* 








7B3 


EIGHT 


DC 




B 


783 


HOLD 


DC 







7 84 


SES 


DC 







785 


COMS 


DC 




/0012 


786 


* 








787 


* 






C.iHCK 


788 


* 








789 


Z 


LD 




Dl 


790 




8SC 


L 


Zl,Z 


791 




LD 


L 


D2 


792 




STO 


L 


Dl 


793 




LP 


L 


D:5 


7Q4 




STO 


L 


D2 


795 




LD 


L 


DEK 


796 




STO 


L 


CEE 


797 




LD 


L 


EEE 


798 




STO 


L 


DEE 


799 




MDX 




Z 


80 


Zl 


LD 


L 


C'^T 


801 




S 


L 


FOUR 


80 2 




RSC 


L 


Z4,Z 


8 03 




LD 


L 


SJRI 


804 




STO 


1 





80 5 




MDX 


1 




80 6 


♦ 








80 7 


■k 






PLACfc 


808 


* 








809 


Z5 


LD 




COMS 


810 




STO 


1 





811 




STO 


1 


2 


812 




LD 


L 


Dl 


813 




STO 


1 

«t^ 


3 


814 




LD 


L 


CEF 


815 




STO 


1 


1 


316 




MDX 




Z7 


817 


Z4 


LD 




EIGHT 


818 




S 


L 


C :'T 


819 




BSC 


L 


Z6#Z 


820 




LD 


L 


S;jPB2 


821 




Sto 


1 


c 


822 




MDX 


1 


6 


823 


* 








824 


* 






P JT , 


825 


* 








826 


Z7 


LD 




COHS 


627 




STO 


1 





628 




STO 


1 


2 


829 




LD 


L 


D2 


83 




STO 


1 


3 


831 




LD 


L 


DEE 


832 




STO 


1 


1 


833 




MDX 


1 


-4 


874 




HDX 




15 


835 


Z6 


LD 


L 


SUB33 


636 




STO 




n 
U 


877 




MDX 


1 


IC 


878 


* 








879 


* 






FMT , 



AND WO^K AREA 

CQNbTANT 

SKU'DlMtNblOM FACTOF TEHP 
NO, OF WORDS Pt-R SuPSC TEH 
COMMA CUNbTA'JT 



FOR 01 U 



D-FaCTOK 1 

8K iF NUT ZEHO 

D-FaCTOK 2 

Dl U2 

D-FaCTOk 6 
D2 y3 

C D 

D E 

BR 10 CHK Dl FOR ZERO 

ELEREnT COliMT 

DECIMAL FgUP 

dk lO Z4 IF UF^tATER 

I'OlMtMblONAL SUBSC 

PLAUE On bTRlMlJ 

IMCK POINTER BY 2 



THA^I 
INDR 



,C,U1 ON stking 

COMMA CHAKACTEf" CONSTANT 
FIHbT COMMA 
SECOND COMMA 

Dl 

C 

8K 10 COMPUTE PDiriTRR 

DECIMAL EIGHT 

ELEMENT COUNT 

8R lO Zfc IR GRtATER THAM f 

2"DiMeNi)l0NAL SUBSC IHD^ 

PLACE On string 

INCH pOlMTER BV 6 

D#D2 ON bTHiNG 

COMMA CUNbTA'lT 
FIRbT COMMA 
SECOND COMMA 

D2 

D 

MOVt POINTER BY s4 

BR 10 PUT ,C»D1 ON ETRI\!G 

3'DlMfcNi>l0NAU SUBSC If'D9 

PLACE ON SjTRiNU 

iNCh pOiNTER BY 10 

E»D3 ON bTKiNG 
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840 


* 






841 




LD 


COHS 


842 




STO 


1 


843 




STO 


1 2 


644 




LP 


L Dy> 


845' 




STO 


1 3 


846 




LD 


L EEC 


847 




STO 


1 1 


848 




HDX 


1 -4 


849 




MDX 


Z7 


850 


• 






81=^1 


* 




CDMPU] 


&5Z 


* 






8P3 


CK13 


LD 


MOB 


854 




S 


L OP 


851? 




STO 


HDD 


856 




HDX 


L SM,1 


857 


* 






858 


* 




CLOSE 


859 


♦ 






860 




LD 


L Y 


861 




S 


L OP 


862 




STO 


* 1 


863 




LDX 


L2 


664 


t 






665 




LDX 


11 Y 


866 


CLOS 


LD 


? 1 


867 




STO 


1 1 


868 




BSC 


L * 3, . 


6 69 




MDX 


1 1 


670 




HDX 


? 1 


871 




MDX 


CLOS 


872 




BSC 


L K 


87 3 


* 






874 


* 




OPEN ! 


875 


* 






876 


CK14 


STX 


1 CF?IK 


877 




LDX 


U EDFS 


878 




LDX 


12 EOFS 


879 




MDX 


12 OP 


850 




LD 


L KnFS 


881 




S 


CRIK 


882 




STO 


C!3IK1 


883 


CRlKl 


, LDX 


L3 C 


884 




MDX 


3 1 


885 




STX 


L2 FDFS 


886 


LAMB 


LD 


1 


8B7 




STO 


2 


888 




MDX 


1 -1 


889 




MDX 


? -1 


890 




MDX 


3 -1 


891 




MDX 


LAMB 


892 




LDX 


11 lUSAV 


893 




LD 


1 


694 




AND 


mazz 


895 




STO 


CRIK 


896 




LD 


L MRHSV 


897 




A 


L OP 


898 




STO 


L |!PMSV 


899 




SLA 


2 



COMHA CHAKACTEP CONSTANT 
FIHbT CUMHA 
SECUND COMMA 

03 

E 

MOVt POINTER BY »4 

BK 10 PUT ,DiD2 ON FTHIMG 

E STRING CLUSfc VALi^E 

STRING CLUSE VALUE 
STMnT CLOSURE PANGE 
ADJuSTEU STPiNt:- CLOSE VALU 
SET'Sjf'lNG CLOSE SWITCH ON 

STMNT oh WOKDb 

AUDk begin SS'BSCRIpT STMNT 
RANGE 01- STMNT CLOSURE 

M^Vt F^UM ADDRtSS 

♦MOulFlARLE 

MUVt TO AUDRESS 

NEXT WOHD TO MOVE 

CLOSE UK STHNT 

BH? JF END OF STfINT f OUND 

INCH MOVE TO ADDR 

INCH MOVE FROM ADDR 

8R lO CUNTIMDE CLOSING 

BH to StT STMNT POUTER Y 



CJRkEnT STMfjT POINTER 

END OF STKlrin ADDRESS 

END OF STkINC^ ADDRESS 

NEW END OF STRING ADDRESS 

END OF STKiNf-' ADDRESS 

CURRENT STMNT PDINTfR 

DIFFERENCE A5 ADDR NEXT 

MUDiFlABLfc 

NO, OF WORDS Tr HOVf: 

NEW END OF STRIfJG ADDRESS 

NfcXr WOKD TO MOVE 

OPEN sTkInO 

DECH MOVE FROM ADDRfSS 

DECK MOVE TO ADDRESB 

DECK NO, UF i^OPDS TD MO^E 

RK 10 CUNTlf!''E MOVE 

AUDH OF STMNT ID WORD 

SfMiNT lU WORU 

EXTkACT STMNT WORD COUNT 

SAVfc jn WITHOUT WORD COJNT 

OLD WD COUND 

INCH wo cgUNT t;y range 

NEW WD COU'JT 

POSITION FOR in UD FORMAT 



SEITE If. 



900 
901 
902 
90 3 
904 
9V5 
9(16 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
916 
919 
920 
9?1 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
93 7 
93a 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
9P2 
955 
954 

9P5 

9f6 
9^:7 

9? 8 
9[59 



* 

* 

HOB 

CRiK 

MAZZ 

ZAPl 

ZAP 




ZAP6 

♦ 

ZAPZ 



ZAP2 
ZAP4 



* 
OUT 



OP 

STO 

LD 

S 

DSC 

MDX 



DC 
DC 
DC 
DC 
DC 



LP 
BSC 
MDX 
BSC 



STX 

LDX 

LD 

AND 

STO 

LD 

S 

SLA 

OR 

STO 

LD 

A 

STO 

LDX 

LD 

S 

STO 

LDX 

MDX 

LDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

LDX 

MDX 



BSI 

DC 

BSS 

End 



L 
L 
L 
L 



CRiK 



FOPST 

FOFS 

K,-Z 

f:RPOR,l 

IT 



L 
L 



1 
U 

1 



NfcW WD COgMT If ID V'OF^D 

RtSTOKE lU WITH NEW i^D :NT 

LOAD b^U OF SYMBOL TABLs 

SUBTRACT eND OF STRING 

BRANCH IF MO OVERLAP 

SET OVEKLAP indicator O'i 

EXIT 



CONSTANTS AND WQRK AREA 

STRING CLQSE VALUE 

D stmnt puinte^^' tehporahy 

/r803 STMnT IU wD fcXTpACT MAS<: 

STMnT WuRU COUfiT TEf'PORARY 

I^DtX RfcG 1 TEfPORAFY 

CHECK SWITCH ^ fOH ijTPlMG CLOSURE 



ZAPZ,Z 

1 

TE?^T 



L 
L 

I? 
L 



L3 

W 

u 

2 

1 
1 



U 



STHiiNU ULUSE Si ITCH 

BH IF Si RING CLOSE REQUIRE 

INCH sTMNT PCPTER 

GU 10 NEXT STHfT 



Close string by hub hohd^' 



ZAP 
IPSAV 



MAZZ 

CPIK 

IIPMSV 

HnH 

2 

cniK 


IiqMSV 

IDSAV 

ZAPl 

ZAPl 

EOFS 

ZAPl 

ZAP2 ; 

D 

1 

ZAP 

Q 

1 

1 

1 

-1 
ZAP4 

ZAP 
ZAP6 



SAVfc cUKRfcMT STHNT POINTER 
AUDK OF STMMT ID KORD 
STMNT IU WORD 
EXTkACT STMNT 1-000 COUNT' 
SAVt ID WITHOUT WORD COJNT 
OLD STMNT WOHD COUNT 
STRING CLySUf^E PANGF 
POSITION FOR ID WORD FO^MA 
NEW STMNT WOHD CNT IN ID. W 
RESTORE ID WITH NEW WD CNT 
OlD'WQRU COUNT 
AUDKESS STMNT ID WORD 

MOVfc pRgM ADDRESS 
END OF bTHlMU ADDRESS 
MyVfc FROM ADURt SS 

RANbE-1 OF MOVt, MOIMFIABL 

NU, OF wOHDS TO HOVE 

MUVt TO AUDRtS5 

NEXT wOHD TO HOVE 

CLOSE UP STRING 

INCH MOVE TO ADDRESS 

INCK MOVE FROM ADDRESS 

DECK NO, OF WDS TO ROVE 

BR TO CDNTIN'-'E MOVE 

RESTORE INDEX REO 1 

BR iO INCH STMt^T POINTED 



f?EAO IN AND GU TO NfcXT PHASE 

L RHLRX CALL DOwN PHASL 12 

IP ' NEXT PHASE NUMFER 

0\'ERL-**32Q*3 pHASfc-H PATCH AREA 
START 



